home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / util / wb / TextloaderNG.lha / TextloaderTNGr / Rexx / FW-Normal.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-12-20  |  402 b   |  23 lines
  1. /* Imports text from TLNG 2.0 to FinalWriter97 */
  2. /* FW97-V1.1 © 19.07.99 by Jochen Grus         */
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS "FINALW.1"
  6. Status FontPath
  7. fontpath = Result
  8. Status FontName
  9. fontname = Result
  10. pos = LASTPOS('_', fontname)
  11. IF (pos == 0) THEN
  12.    DO
  13.    fontpath = 'Normal'
  14.    END
  15. ELSE DO
  16.    pos = LASTPOS('_', fontpath)
  17.    fontpath = 'Normal'
  18.    END
  19. Style fontpath
  20. Type ' '
  21. paste
  22. Justify left 
  23.